RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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ZTITLE "SAVRES - Restore. . 

MODULE SAVRES 'V 

+ ADDRESSING eee ee eeteh = LONG_ 
ONEXTERNAL = LONG 


mie 
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BEGIN 


' 
LRAT ET EES 
is 


*® 

t 

ie COPYRIGHT (c) 1978, 1980, 1982, 1984 B * 
is DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. » 
is ALL RIGHTS RESERVED. . 
® 

ie THIS SOFTWARE 1s FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
iw ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ®* 
ie INCLUSION OF THe ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ®* 
ie OTHER PERS NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
is TRANSFERRED. . 
® 

*® 

wy 

® 

® 

® 

® 

® 

® 

® 


'® THE INFORMATION IN THIS SOFTWARE IS SUBJ 
!* AND SHOULD NOT BE CONSTRUED AS / CO 
'* CORPORATION. 


iw DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 
ABSTRACT: SAVE & RESTORE handling and initialization routines 
ENVIRONMENT: Transportable 

AUTHOR: Ken Alden CREATION DATE: January, 1983 
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SAVRES == Save & Restore 16-se -1984 01:43: AX-11 Bliss-32 V4.0-74 Page SAVE 
Revision History 1 30071382 Oh ba 03 RUNOFF .SRCJSAVRES.BLI; . (25 v04- 

PL, } XSBTTL "Revision History’ 

rh | MODIFIED BY: 

46 1 i 010 REMO0010 Ray Marshall § 16-November-1983 

af 1! Changed numeric offsets used in routine SAVINI to using macros 

Be8 7% so that future changes to GCA, HCT, PHDEF, and/or SCA will 

049 1! have less chance of resulting in failures of the SAVE/RESTORE 

Bees : } directives. 

0038 1 009 KFA00009 Ken Alden 30-Sep-1983 

Be 1! Moved some the the variables from save all to save and 

bee : } vice versa. 

036 1/ 008 KFA00008 Ken Alden 27-Jul-1983 

FF : Modified SAVINI with the addition of gca_flag_cmd. 

0059 1! 007 KFA00007 Ken Alden 5=Jul-1983 

Bey : Modified SAVINI with the addition of sca_flags. | 
006¢ 1/ 006 KAD00006 Keith Dawson 12-May-1983 
0065 1! Modified SAVINI eb =-- having adjusted some of the 

we : } storage locations in GCA.REQ. 

066 1 i 005 KFA00005 Ken Alden 3-May=1983 

0067 1! Added conditional for debugging so XPO_PUTs will only 
+94 | be put if the output file if open. 
0070 1! 004 KFA00004 Ken Alden 25-Apr-1983 
Bae 4 : Added support for /DEBUG=SAVE. 
pons . 003 KFA00003 Ken Alden 25-Apr-1983 
0074 1! Fixed the plock copy macro so it will pick up the first 
Bae : } word in the save block properly. 
0077 1! 002 REMO0002 Ray Marshall 07-Mar-1983 

0078 1! Global edit of all modules. Updated module names, idents, 

44 i copyright dates. Changed require files to BLISS library. 

0081 1 i-- 
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SAVR SAVRES == Save & Restore 1b-se =1984 01:43: AX-11 Bliss-32 V4.0-74 p 3 
Soe b80 Module Level Declarations 12-86-1384 a RUNOFF .SRCJSAVRES.BLI; — (3) 


3 Be O88 ! XSBTTL "Module Level Declarations’ 
; 8 6 4 1 ! TABLE OF CONTENTS: 
PE BRT 
; 34 p ? ! INCLUDE FILES: 
: 91 89 1 
5 36 0090 1 LIBRARY ‘NXPORT:XPORT'; ! XPORT Library 
; 4, 0091 } REQUIRE ‘REQ:RNODEF'; ' RUNOFF variant definitions 
ae U 6 § ju DSRPLUS XTHEN 
: 39 U : } bapenny REQ:DPLLIB'; ! DSRPLUS BLISS Library 
3 98 § 1 LIBRARY ‘REQ:DSRLIB'; ! DSR BLISS Library 
; 99 1 21 
: ie 0559 1! 
; 4 8 ? : MACROS: 
: 104 OS e6 1 MACRO 
; 132 . 8 34 : block_copy (in_adr, length, out_adr) 
; 107 M0235 1 BEGIN 
: N = in_adr : vector; 
108 M0236 1 BIND FOO = in_ad 
: 109 m0 7 1 BIND BAR = out_adr :vector; 
; 110 M0238 1 
30% m 0239 1 INCR I FROM 0 to ‘Length - 1) DO 
: A ‘ = ,f00 istdas 
11 40240 1 BAR [.1] FOO C.J) 
oe | M0241 1 
s 114 40 4g 1 EN 
no Rhys 
$ H U Y LS: 
9 0245 1 ! EQUATED SYMBOLS 
; #118 0246 1! 
2 4 ' OWN STORAGE: 
119 0247 1 
: 159 0569 | | 
3 156 8 “9 ! } EXTERNAL REFERENCES: 
> 124 b52¢ 1 EXTERNAL LITERAL 
3 \$2 B52 1 rnfloc, 
: rnftms, 
126 254 1 ft 
3 \sf 8 2? 1 rnfufr, 
: : : 8 28 ' rnfncs; 
: 186 0298 1 EXTERNAL 
: 131 59 1 rnoiob : REF $XPO_I0B(), 
3 136 60 1 irac : irac_definition, 
2 61 1 Savstk : savstack 
: 1 6¢ 1 flgt : flgt_definition, 
s 155 635 1 sca : sca_definition, 
s ¥ § 64 (1 het : hct_definition, 
; 1 65 1 gca : gca_definition, 
; 138 08 1 phan : phan_definition, 
3 + 4 of : Save f saye block. . 
Foy saveall : $saveall_block; 
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SAVR SAVRES == Save & Restore 16-5e -1984 01:43: AX-11 Bliss-32 V4.0-74 Page 5 SAV! 
youn 000 SAVRES == Save & restore handler module 1 =3007 1382 #3 ba :03 RUNOFF .SRC SAURES BL 144 . (4) V04: 
; 1% 6 1 ZSBTTL "SAVRES -- Save & restore handler module' 4 
: 1th fe ! GLOBAL ROUTINE savres (handler_code,internal_code) : NOVALUE = : 
: 149 te} i+ 3 
; 129 44 } ; FUNCTIONAL DESCRIPTION: a 
: 13¢ 7943 This routine performs the SAVEs and RESTOREs. , 4 
; 1 80 1! This routine will perform up to 20 save/save alls and after that it $C 
: 154 0 3 1! will remember ten more if the user happened to accidently try a .SAVE ss 
3 13? 0 ¢ 1} The reason for remembering is to more informative to the user by 
3; 136 0285 1! pergtyn back to where the illegal save occured. After ten illegal 
: 4 e 1! AVEs, this routine w just jgnore the whole command. This of course 
; 128 8? : } will skew the restores but we figured, who cares at that point? 
: 160 0 a 1/ One additional item I would Like to point out is that the maximum 
3 19) 8 Ht ! } number of saves(20) is SAVSTK_SIZE. 
: 168 8 4 : The maiximum number of recorded save commands(30) is STKSAV_SAVE. 
: 165 0292 1 | FORMAL PARAMETERS: 
: 166 0295 1! 
; «167 02946 1! HANDLER CODE indicates which command is to be processed. 
; 168 0295 1! INTERNAC_CODE indicates where this routine was called: utilities(-1), 
; 169 0296 1! RSDERM (=2), DOCM(1). 
: +70 0297 1! 
3; 171 0298 1 ! IMPLICIT INPUTS: none 
3 7 0299 1! 
tie | 0300 1 ! IMPLICIT OUTPUTS: none 
3 6176 0301 1! 
3 79 $308 1 ! ROUTINE VALUE and 
s 176 303 1 ! COMPLETION CODES: none 
: 177 0304 1! 
; 178 0305 1 ! SIDE EFFECTS: none discovered yet 
3 «179 0306 1! 
; 180 0307 1 !-- 
; «(181 0308 1 
: 136 0309 BEGIN 
3; 0310 OWN 
: «184 0311 x, 'Just a copy of the SAVSTACK depth 
; «6185 bai§ savptr; 
3 136 031 
; 0314 SELECT .handler_code OF 
; 3 Og SET 
: 150 19 Ch_save] : 
3 «191 18 BEGIN 
3 136 19 ‘a .SAVE command has been hit. 
; 320 iThis section will save all the necessary values of items the utility 
3; «194 321 ‘programs may alter. Tab stops have also been saved since it was thought 
; be 03 ¢ 'they may be saved often without the need for .SAVE ALL. 
: 199 3 4 ‘Let's check 8 see if there is any more room for one more save. 
; 138 5 x = ,savstk CO, savstk depth) + 1; 
: 200 § IF_ .x GTR savstk_size 
; 201 3 THEN : 
; 202 erma (rnftms, false); !Already at maximum save depth, ignore and issue error. 


, .y 
SAVRES SAVRES == Save & Restore 19-300" 138% 94:43:13 AX-11 Bliss-32 V4.0- 4 Page 6 
v04-000 SAVRES == Save & restore handler module 14-Sep-1984 13:08:0 RUNOFF .SRCJSAVRES.BLI; 
; 203 0 
; 204 1 ‘Remember how the .SAVE was byersed. Coven if we're ‘ignoring’ it) 
: 8? § ‘Only if the number of SAVEs is fewer than 3O(STKSAV_SIZE). 
: OF ? if a" GTR stksav_size 
: 208 5 ; RETURN; !Forget this command, user has really extend 
: 210 ; i Show whether this is a save or save_all and output the nesting 
3 13 3 level if user asked for /debug=save. 
; 1§ 0 rk if ,9¢@_debug_save and NOT .gca_skip_out 
: 215 6 4g BEGIN 
: 216 P 0343 4 $XPO_PUT ( 10B = .rnoiob 
; 17 P 0344 4 STRING = SSTR_CONCAT( ‘.SAVE ' 
: 18 P 0345 4 er, ‘oe 
: 219 P 0 46 4 /SSTR_ASCII(.x) 
; 220 P 0347 4 *}° 
; 221 0348 4 5S; 
Bo EY i 
> 224 0351 savstk (CO, savstk_depth) = .x; 'Save new stack depth. 
3 @eo O26 ; savstk C.x, savstk_source) = .handler_code; 'Remember command. 
; 226 Bae savstk [.x, savstk_req_d] = -9¢a_req_depth; 'Remember .REQUIRE depth. 
3 der 0354 savstk L.x, savstk_ipagen] = .irac_ipagen; 'Remember input page number. 
; 228 0355 savstk (.x, savstk_iseqn] = .irac_Tseqn; 'Remember input line number. 
3 $§2 0356 savstk [.x, savstk_fspecp] = .irac_fspecp; ‘Remember file spec. 
; 231 been savstk [.x, savstk_fspecc] = .irac_fspecc; 'File spec lengt 
: 3 O322 if -x GTR savstk_size 
: 5 Bees RETURN; ! We've make a record of the save but don't do anything. 
: 236 O368 ‘Now, get some memory to store the save values. 
; tH 0364 $XPO_GET_MEM( FULLWORDS = save_length, RESULT = savptr); 
: M3 baee savstk E.x, savstk_address] =".savptr; 'Save pointer to starting address of save bl 
; 50 0367 ‘Finally, we perform the save by copying the SAVEALL storage area to our dynamic stack. 
; 241 0368 block_copy (flgt, save_length, .savptr); 
: seg 0369 
: 5ta B37 ae: 
; 49 0372 Ch_save alld : 
: ¢3 0374 'a@ Save ALL command has been hit. 
; 248 375 'A .SAVE ALL saves all that a .SAVE command saves in addition to several 
3 r?4 B378 ‘other flags and action bits. 
3 251 78 ‘Let's check see if there is any more room for one more save all. 
3 2¢ 4 x = .savstk (CO, savstk_depth] + 1; 
; 254 si IF .x GTR savstk_size THEN 
3 32 ¢ erma (rnftms, false); !Already at maximum save depth, ignore and issue error. 
: 2 ; 4 'Remember how the .SAVE ALL was started. 
: 8 ; 2 ‘Only if the number of SAVE ALLs is fewer than 30(STKSAV_SIZE). 
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1 
Restore 18-se 1984 01:43: AX-11 Bliss-32 V4.0-74 P 7 
1 ~300 71382 9h oi d3 RUNOFF .SRCJSAVRES.BLI; verse (4) 
IF .x GTR stksav_size THEN 


RETURN !Forget this command, user has really extend 


' 
: Show whether this is a save or save_all and output the nesting 
level if user asked for /debug=save. 
IF .gca_debug_save and NOT .gca_skip_out 
THEN? 9 g p 
pestn 
XPO_PUT ( I0B = .rnoiob ; 
eSTRING = SSTR_CONCAT( “sgave ALL ' 
s$STR_ASCII(.x) 
¥}° 
5; 
END; 
savstk CO, savstk depth) = .x; 'Save new stack depth. 
savstk L.x, saver sourced = ,handler_code; !Remember command. 
savstk [.x, savstk_req_d] = -9¢a_req_depth; 'Remember .REQUIRE depth. 
savstk [.x, savstk_ipagen] = .irac_ipagen; 'Remember input page number. 
savstk (.x, savstk_iseqn] = .irac_Tseqn; ‘Remember input Line number. 
savstk C.x, Sovetk...jepece, = .irac_fspecp; ‘Remember file spec. 
savstk (.x, savstk fspecc] = .irac_fspecc; 'File spec Lengt 


IF savstk_size THEN 


x GTR 
RETURN; ! We've make a record of the save but don't do anything. 


'Now, get some Gover to store the save values. 
$XPO_GET MEM( FULLWORDS = saveall_length, RESULT = soyptr)s 
savstk C.x, savstk_address) = .savptr; 'Save pointer to starting address of save bl 


!Finally, we perform the save by copying the SAVEALL storage area to our dynamic stack. 
block copy (flgt, saveall_length, .savptr); 


END; 
Ch_restore) : 
BEGIN 


‘a Restore command has been hit. There may have been some save commands 
'that were ignored because of too many saves. Checking for that.. 


x = .savstk (CO, savstk_depth); ‘What's the current stack depth? 


IF _.x GTR savstk_size 
ener vee? has asked for more saves than possible. 


savstk (0, povstk depth) = .savstk (CO, savstk_depth]) - 1;!Ignore this save. 

IF .internal_code EQL 1 'User requested this restore, issue warning. 
THEN 'Otherwise do it silently. 

sf(ne (rnftms, false); 


! 
i Show that a restore is being done and output the nesting 
level if user asked for /debug=save. 
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SAVRES SAVRES == Save & Restore 16-Sep-1984 01:43:1 AX-11 Bliss-32 V4.0-74 Page 8 
v04-000 SAVRES == Save & restore handler module 1e-8ep-19 4 $b b8;03 RUNOFF .SRCJSAVRES.BLI; ’ (4) 
3; SIT 444 IF .gca_debug_save and NOT .gca_skip_out ‘ 
: $18 tes 3 THENS wo “— 
; 319 4 4 GIN $ 
; 0 P 0447 4 $XPO_PUT ( I0B = .rnoiob ; 
; 1 P $e8 4 »STRING = $STR_CONCAT( ', RESTORE ' : 
: ; P 0449 4 vt, be . 
3 P 0450 4 »$STR_ASCII(.x) ; 
; 4 Pp Bee) 4 ‘)' : 
; 325 4d¢ 4 §); ; 
3 8 Beez ? If _.savstk C.x, savstk source] EQL h_save ; 
; 8 P g235 4 $XPO_PUT ( I0B = ,rnoiob ; 
3 9 P 0456 4 STRING = SSTR_CONCAT( ‘Corresponds to SAVE on Line ' : 
3 0 P 0457 4 »SSTR_ASCII(.savstk C.x, savstk_iseqn]) : 
3 1 P 0458 4 . page . : 
3 ¢ P 0459 4 »$SSTR_ASCII(.savstk C.x, savstk_ipagen]) ; 
, 35 P 0460 4 ,' of input file ' ; 
: 334 P 0461 4 ,(.savstk C.x, savstk fepece) : 
: 335 Pp BOOg 4 ,»savstk C.x, savstk_fspecp)) 3 
3; 330 04635 5 )) : 
; Bar 0464 4 ELSE : 
3 338 P 0465 4 $XPO_PUT ( I0B = .rnoiob : 
; 339 P 0466 4 STRING = $STR_CONCAT( ‘Corresponds to SAVE ALL on Line ' : 
; 340 P 0467 4 »$STR_ASCII(.savstk C.x, savstk_iseqn]) 3 
3 *g P 0469 4 eSSTR_ASCII(.savstk C.x, savstk_ipagen]) ; 
: 34 P0470 4 »' of in ile ' 3 
3 344 P 0471 4 (.Ssavstk C.x, savstk_fspecc] : 
: 345 e berg 4 ,»savstk C.x, savstk_?specp]) 3 
: 346 0473 4 3 ; 
3; 347 0474 4 : 
; «4348 0475 ; END; 3 
: 9 0476 3 
3; 350 0477 ; 'Now stored in the SAVSTKis the List of all the saves. Each ; 
3; 6351 0478 ‘item is the type of save (SAVE or SAVE ALL). So below we.. $ 
3 26 0479 SELECT .savstk [.x, savstk_source] OF 3 
; e7 Beet SET ‘Determine what to restore. (if anything) : 
3 220 bees Ch_save] : 
; 56 04 4 BEGIN : 
; 4 Boe ? 'The Last SAVE was just the small save. : 
: 359 pees 4 'Is this respons in same file as corresponding SAVE/SAVEALL? 3 
3 60 rt 4 IF_ .SAVSTK C.X, SAVSTK_REQ_DJ] NEQ .GCA_REQ_DEPTH : 
; 36) 488 4 THEN 
: § 489 BEGIN 
3; 3 490 ERMA (RNFWFR, FALSE); ‘Wrong File for Restore 
; 364 491 RETURN; 
8 hee 3 
: $$ 494 & ‘Update the address counted-List with a starting address of zero for debugging. 
: 368 495 4 SAVPTR = .SAVSTK C.X, SAVSTK_ADDRESSJ; 
; 3 496 4 SAVSTK C.X, SAVSTK_AODRESS) = 0; 
: 371 498 4 ‘We may now Copy the SAVEd block over to their ‘active’ area. 
3 4 4 ? block copy (.SAVPTR, SAVE_LENGTH, FLGT); 
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END; 
TES; 


END; 


Restore 
restore handler module 


‘Return the memor 
SXPO_FREE_MEM( BI 


Vegete . the eegrege ence 
SAVSTR tei SAVSTK *AODRESS 


the SAVEd block over to their ' 
TR, SAVEALL_LENGTH, FLGT); 


'Return the armory since we don't need it 
ARY_DATA = CSAVEALL “LENGTR mSAVPTR ); 


decrement the number of SAVEs b 
~SAVSTK (CO, SAVSTK_ 


‘We may now co 


block copy (. SAUP 


SXPO_FREE_MEM( BI 


VSTK_DEPTH] = 


ERMA (RNFNCS, FALSE); 
RETURN; 


20 45 56 41 53 38 6 


ee 


area 
1foSeoctgee 1:45:13 


tsb restore is for a Save ALL. 
'The code in this section is just a reverse of the .SAVE ALL area. 


'Is 7s res ore in same file as 5° Ee aPREO DEP SAVE/SAVEALL? 


» SAVSTK_REQ_D] NEQ .GCA_REQ_DEP 


MEBEGIN 
ERMA (RNFWFR, FALSE); 
RETURN; 


L 


d- 
SAVSTK 
] 


more has been ‘'SAVEd' in this file; issue error and return. 
'No corresponding saves. 


‘End of RESTORE set. 


‘End of RESTORE 

'End of SAVRES set. 

' end of routine SAVRES 
TITLE 
- IDENT 
-PSECT 

P.AAD: .ASCII 

P.AAE: .ASCII 

P.AAF: .ASCII 


AX-11 Bliss-32 V4.0- 
RUNOFF ..SRCJSAVRES.BLI; 


x since we don't need it an 
ARY_DATA = CSAVE LENGTH, . 


decrement the number Of oA yES Pk 


VSTK_DEPTH] = .SAVSTK SAVSTK DEPTH) = 1; 


!Wrong File for Restore 


a starting address of zero for debugging. 


Aves -- Save & Restore 


SPLITS,NOWRT .NOEXE ,2 


SAVR SAVRES == Save & Restore tbe Sep-1 74 AX-11 Bliss-32 V4.0-74 P 1 

50e e580 SAVRES == Save & restore handler module 1 Het 9}: $B: 43 RUNOFF .SRCJSAVRES. Bite oe (a8 
20 4C 4C 41 20 45 56 41 53 0 P.AAM: ASCII \.SAVE ALL \ ; 
fg BeAAN: ABET UMN : 
20 20 45 52 4F 54 53 45 52 14 P.AAV: <ASCII \.RESTORE \ : 
IFRAME CAEL MM ! 
20 6F 74 20 73 64 6€ 6F 70 73 65 7 6F 0 P:ABE: <ASCII \C ds to SAVE on Line \ ; 
” 5 sods tein ro 6 2 if i HH : P.ABF ASCII \ rans xe 2 ¥ : 
0 65 GF 69 66 20 7% 75 70 GF 68 6 GF 43 PTABG: “ASCII \ bie input file \ : 
0 6F 4 20 64 gf 6F 7 33 6F 4 51 P.ABN: .ASCII \Corresponds to SAVE ALL on Line \ : 
6— 69 6C 20 6E 6F 20 4C 4C 41 20 45 56 41 5 ster : 
20 65 67 61 $6 2 071 P.ABO: .ASCII \ page \ : 
20 65 6C 69 66 20 74 75 70 6E 69 20 66 6F 20 00077 P.ABP: ASCII \ of input file \ : 


~PSECT SOWNS,NOEXE,2 


68000 : ‘ 4 3 
0004 SAVPTR: .BLKB 4 H 
0006 00008 $STRSSTRINGO: 5 
eWORD 6 $ 3 

01 43 0000A -—BYTE 14, 1 3 3 
00000000' BRO ADDRESS P.AAD 3 3 
0001 0010 paresera ; : 

01 O€ 00018 14, 5 3 
00000000' 00014 ADDRESS P.AAE 3 3 
0001 00018 S$STRSSTRING 3 

» WORD 1 3 ; 

01 QE OQOO1A _ 14, 1 3 3 
00000000° 0001C ADDRESS P.AAF 3 3 
QO0A 00020 S$STRSSTRINGO: H 
eWORD 10 3 3 

01 43 0008? -BYTE 14, 1 3 : 
00000000' 00024 ADDRESS P.AAM 3 3 
0001 00028 SSTRSS TAINS: , 3 

01 OF 0002A . 14, : : 
00000000' B85 C a P.AAN i 3 
0001 0030 SSTRESTRING aap ; é 

01 3 0032 14, 1 3 3 
000000? . 8 4 “ADDR ESS P.AAO 3 3 
QO0A 038 SSTRSSTRING é 
«WORD 10 3 3 

1 OF 60034 14, 1 3 3 
00000000' 8 3 5 “ADDRESS P.AAV 3 3 
0001 00040 $STRSSTRING!: 3 

, ‘ WORD 1, ; 3 
00809006" Bogut tneeeees P. AAW é é 
001 00048 S$STRSSTRING 3 
WORD 1 3 : 

4 3 BOeA “BYTE 14, 1 3 3 
00 098 . $ of tS SS P.AAX r 3 
001C 050 SSTRSSTRING 3 


kK 1 
SAVRES SAVRES == Save & Restore 16-Sep-1984 743: AX-11 Bliss-32 V4.0-74 
youn f00 SAVRES == Save & restore handler module 12286071382 $y bai03 RUNOFF .SRC SAURES {OL 144 — (A) 
» WORD 8 e ” 
1 0 “BYTE a 1 ° ; 
00000098" 00084 -ADDRESS P.ABE : ; 
0006 00058 sstasstaiNees P : : 
4 oF 0 SA <BYTE 14, 1 : ; 
00000006' 3¢ -ADDRESS P.ABF : ; 
OOOF 00060 S$STRSSTRING4: ; 
4 0 0062 “BYTE 14, 1 : ; 
00000000" 00064 “ADDRESS P.ABG : : 
0020 00068 $STRSSTRINGO: ; 
«WORD 32 ; 3 
00000000' 006¢ “ADDRESS P.ABN : 
0006 00070 $STRSSTRING2: 
«WORD 6 : 
01 0 99072 -BYTE 14, 1 : 
00000000" 00074 “ADDRESS P.ABO ; 
OOOF 00078 SSTRSSTRINGS: 
eWORD 15 : 
00000000" 0007¢ “ADDRESS P.ABP : 
.EXTRN RNFLOC, RNFTMS, RNFWFR 
.EXTRN RNFNCS, RNOIOB, IRAC 
-EXTRN SAVSTK, FLGT, SCA 
EXTRN HCT, GCA, PHAN, SAVE 
EXTRN SAVEALL, ERM, ERMA 
EXTRN XSTSJOIN, XSTSASCII 
EXTRW XPO$PUT, XPOSFAILUR 
EXTRN ‘YPOSALLOC_MEM, XPOSFREE_MEM 
.PSECT S$CODE$,NOWRT,2 
5B 900000006 EF 9E 00002 MOVAB XSTSJOIN, R11 
5a 000000 06 EF 9E 00009 MOVAB 0108 R10 ; 
59 900000 G EF 9E 0019 MOVAB XST Asti R9 ; 
38 000000006 EF 9E 0001 MOVAB AC+} ; 
5 00 000 06 EF 9E OO1E MOVAB XPOSFAILURE, R7 ; 
a8 Susneane Er ge 88 mY Sache | 
82 00000000" fF 9 $588 NOY au. 
3E 8 C 00 A SUBL2 #8, SP : 
5 04 AC 00 00030 MOVL HANDLER_CODE, R3 : 0314 
00000082 = BF 3 D4 0041 CMPL = R3, -#178 : 0317 
} 6 48 BEQL «=s«18 ; 
00DC 31 O004A BRW 7$ : 
64 65 01 C1 0004D 18 ADDL3 #1, SAVSTK, x : 0325 
14 64 D1 00051 CMPL =X, - #20 > 0327 
OF 15 4 BLEG = 2 ; 
—E D4 6 CLRL = = (SP) > 0329 
000000006 _ EF sense 85 Pp 5 CALLS fot ERMA : 
1E bf Bf bes 2$: CMPL sO, #50 : 0333 


1 
SAYRES SAVRES == Save & Restore 18-Sep-19 4 tae Se AX-11 Oh lager V4.0-74 Page 12 
v04-000 SAVRES == Save & restore handler module 14-Sep-1984 13:08:0 RUNOFF .SRCJSAVRES.BLI; (4) 
if 14 00068 BGTR 4$ ; : 
36 BB OA 05 £1 0006A BBC £ GCAtTI6, 3$ + 0340 : 
: B4 Ab Es oF BLBS GCA+1 12, : : 
gA D 8 MOVL RNOIOB, ; 0348 3 
: D4 £8 CLRL =(SP : ; 
6 bo 6 7 PUSHL X : ; 
7E 0903 BF 3C OOO7A MOVZWL #2307 =(SP) : ; 
6 03 FB 6 7F ALLS. @# STSASCII : ; 
18 Ad OF Be PUSHAB SSERSSTRING : : 
50 DD 000 PUSHL R : ; 
10 A& 9F 00087 PUSHAB $STRSSTRING! : : 
08 AG OF 0 A PUSHAB $STRSSTRINGO : F 
6B 4 FB D CALLS #4, KSTSJOIN : ; 
44 ag 0 pO 00090 OVL RO, 6 (Re) : : 
a’ 7 90 00094 OVB #7. 44(R2) : ; 
7 DD 00098 PUSHL 7 : ; 
D4 O009A CLRL  =(SP) : ; 
52 dd 0009C¢ PUSHL é : ; 
000000006 EF 03 FB 0009 CALLS #3, XPOSPUT : : 
1 64 DO OOOAS 3$: MOVL xX, R ; 0351 3 
65 51 DO 0008 MOVL. 1, SAVSTK : ; 
50 51 ic ¢5 0008 MULL3 #28, R1, RO + 0352 ; 
08 A540 9F OOOAE PUSHAB SAVSTK+8CROJ : ; 
9E 53 D0 000B3 MOVL 3, a(SP)+ : : 
Oc A540 9F 000B6 PUSHAB SAVSTK+12CRO] > 0353 ; 
9E 68 DO QOOBA OVL GCA+188, a(SP)+ : 3 
10 A540 9F 000BD PUSHAB SAVSTK+{6CRO) + 0354 ; 
9E 68 DO 000C1 OVL  IRAC+12, a(SP)+ ; ; 
14 A540 9F 00064 PUSHAB SAVSTK+20(RO] + 0355 F 
9E FC AB DO 000C8 OVL  IRAC+8, a(SP)+ : ; 
18 A540 9F 000CC PUSHAB SAVSTK+24CRO] + 0356 : 
9E 04 As DO 00000 OVL  IRAC+16, a(SP)+ : ; 
1¢ A540 9F 000D4 PUSHAB SAVSTK+28(RO) : 0357 : 
9E 08 “A8 DO 00008 MOVL  IRAC#20, a(SP)+ : : 
14 51 01 000DC CMPL =soR1, @ : 0359 ; 
6F 14 OOODF 4$: BGTR log : F 
6E 02020000 8F 00 000E1 MOVL #33685504, S$XPOSDESC > 0364 : 
4 AE D4 O00ES CLRL  $XPOSDESC+4 ; : 
5 bp O0EB PUSHL R7 ; : 
7E 7C OO0ED CLRO. = (SP) ; : 
7E 01 CE OOOEF MNEGL #1, =(SP) ; : 
10 AE 9F OOF 2 PUSHAB $XPOSDESC ; 3 
cooooooos Hf OH Fe Hao ERIE Feist Loc ue : ; 
5 98 £6 101 BLBC  $XPOS$STATUS, ; ; 
04 Ad 04 AE DO 001 MOVL.  $XPOSDESC+4. SAVPTR : : 
50 64 1¢ f 109 5$ MULL3 #28, X, R + 0365 : 
4 AS49 SF 0010D PUSHAB SAVSTK+4CRO] ; : 
9E 4 “a& 00 0011 MOVL SAVPTR, a(SP)+ ; : 
50 04 9011 CLRL I ; 0368 3 
04 8440 000 OO0GEF 40 D9 vit 6$: MOVL FOOCIJ, @SAVPTREIJ : : 
EE 50 000000A4 = BF_CéF'3: 001211 AOBLEQ #1 j ; : 
00000083 8F 3 D1 Oo1g9 78: (HPL RS, in7$ ; 0372 3 
64 5 oon 3 1 8$ eres oak, SAVSTK. x : 0379 : 
$2 64 D1 001 CMPL =e XK, - #20 ; 834 : 


7 a 
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500n 580 SAVRES -- Save & restore handler module 12-88-1382 94:63:43 RUNOFF .SRCJSAVRES.BLI; . (4) 
E 2 135 BEL Fp) : 0382 : 
000000006 8F DD 001 5 PUSHL #RNFTMS : : 
000000006 EF FB 00146 CALLS #2, BRM : ; 
1E D1 14 + CMPL xX, #50 3; 0387 3 
2 14 00150 10$:  BGTR les : ; 
36 BB OA 05 €1 001 BBC #5, GCA+116, 11$ + 0393 ; 
3 B4 Ab £8 001 BLBS GCA+1i2, 11$ : ; 
A DO 00158 MOVL §RNOIOB, R2 + 0401 ; 
E D4 001 LRL ss = (SP) : ; 
bp 016 USHL xX : : 
ze 0903 f C O16 MOVZWL #3307 -(SP) : ; 
6 FB 001 ALLS. # STSASCHI : ; 
30 Ad OF OO16A PUSHAB $STRSSTRING : ; 
50 DD 0016D USHL RO : ; 
28 AG OOF O16F PUSHAB $STRSSTRING1 : ; 
20 Ad OF 001 : USHAB $STRS$STRINGO : ; 
6B 4 FB 0017 CALLS #4, XSTS$JOIN : ; 
44  A2 0 dO 00178 OVL RO, 68 (R2) : ; 
ae 07 90 0017¢ MOVB #7. 44(R2) : ; 
7 DD 00180 PUSHL 7 : ; 
7E 04 0102 CLRL. = (SP) : : 
52 DD 00184 PUSHL : : ; 
000000006 EF 03 FB 00186 CALLS #3, XPOSPUT : : 
51 64 DO 0018D 11$:  MOVL X, R + 0404 ; 
65 1 DO 60190 M Ri, SAVSTK : : 
50 51 1¢ C5 0019 MULL3) #28, R1, RO > 0405 3 
08 A540 9F 00197 PUSHAB SAVSTK+8CROJ : ; 
9E 53 DO 00198 MOVL 3, a(SP)+ : ; 
0c A540 OF 0019 PUSHAB SAVSTK+12CRO) + 0406 ; 
9E 66 DO OO1A MOVL CA+188 a(sP)s : ; 
10 A540 OF O14 PUSHAB SAVSTK+{6CRO] t 0407 ; 
9E 68 DO 00149 L _‘IRAC+12, @(SP)+ ; ; 
14 A540 9F OOTAC PUSHAB SAVSTK+20(RO] + 0408 ; 
9E FC As po 00180 L _-IRAC+8, a(SP)+ : ; 
18 A540 9F 001B4 PUSHAB SAVSTK+24CRO] + 0409 ; 
9E 04 As DO 00188 L AC+16, a(SP)+ ; 3 
1¢ A540 9F 001BC PUSHAB SAVSTK+28(RO] + 0410 ; 
9E 08 aA8 DO 001C0 MOVL ACeS8. (SP)+ 3 3 
14 31 D1 0014 CMPL # + 0412 3 
F 14 ic? 12$: BGTR 1 ; : 
6E 02020000 BF dO 001C9 MOVL  #33685504, $XPOSDESC + 0416 3 
04 AE D4 0010 L  $XPOSDESC+4 3 ; 
3 DD 1D PUSHL R ; : 
E C 0010 Q -(SP) ; 3 
7E 01 CE O107 MNEGL #1, -(SP) ; ; 
10 AE SF OO1DA PUSHAB SxPOSDESC : : 
7E 04A F 3¢ 0010 MOVZWL #1192, -(SP) : 3 
000000006 _ EF 6 Fs 1E CALLS #6, XPOSALLOC MEM ; : 
5 f E9 OO1E LBC  $XPOS$STATUS, 13 : : 
04 Ab 04 AE 00 1EC MOVL.  $XPOSDESC+4. SAVPTR : : 
50 64 I¢ § 1F1 138: MULL3 #28, X, RO + 0417 : 
04 A540 9F OO1F PUSHAB SAVSTK+4(RO) ; : 
9E 4 Ad DO OOTF MOVL SAVPTR, a(SP)+ ; : 
04 B44 0 GeFe6 ti if? 14$ aout i 1], aSAVPTREI) “em ' 
EE $6 $8000% 99 8F Pg 209 AOBLEQ 139). {. 148 ; : 


v4 


is 


ae Oi lege v4. 
RUNOFF .SRCJSAVRES.BLI; 


restore handler module 


SAVRES == Save . Restore 
SAVRES == Save 


oS 
YS 
a8 
3 
> 


SAVR 


eee oe ot eee ee eee eee et ee ee ee ee ee ee eT eT eee ee ee es ee ee ee ed ee ed ee ee ee ee ee 


wz 
N 
> f 
So 
bl i Rit it a Me Min Mie Mie lin Meclia Md D iat i li Reh titi ei ei Dei Dt Dei i ei ei ee ei ed eh eh eh hh a a ad od oe od od od oo oo ee oe ee oe ee ee 
wT 
+ 
w wn 
worm oOo 
2zem 2 
- in > 1 
R A econ a 
Oo —Zzo 
. ~N ez Ww 
w -_ Lm | _  ] — Mee es 
a . ff ~Km OZ mc oafH oe AS &§— Seaee-ae wT 
o oOo Oo acy’e YO _ or a aw @ aw ewe ace VY 
vw - —~w ANS Z2ZOon- DSwoace- ws Ww Ow NYMK-WUKNORUIY Z@ 
=< 1 - [: tien, See ie bee Eo Aces owe eco ~<oeoercease — 
wn all a 7 ‘ean aeanceaece es L<) Nu UL - aw Fao a 
~ 7 a “oo <« ws —— &—eeww Os s+ 8 + bee at — *+ West = 
—- ~o we =z we -@® 1M MMwMWo., aAa@m=x<w+ ~e> OM xe «OOO IE OYMS WH 
= FN Eo ake 8 «On FXO OEOKOFT = KO FR ARERR KER ROR OE lClUM Em CUM 
We ww aw =o. Oo fc ea a — WA AwWao a mao was wa « 
a> F>-A ZH WEIOW Me FR Fes WH SOD SPYRO >S> OM * NO>WM WrevHsFr ->uH 
mot wet Zh. ~KOMMLZ~Y~ WMMYOMYTORR.YSOUM ZV ewe ew Cemo~ ve eunmnviawe nr ew 
SX —— I BMBVVOE 1 KXBRBVSHTHSHVSRVROS 1 CVRTBVSGs | HSVVz i BVBGBVVVvVV1SVZVVvVHBve 
ad ; — — @ 
HAO4IIGII oT OIjAjIN ITE IIOTt YT TU TIN SI I TIEN UI IT BOOT UT T 
Aww SG CKMHIBV BOS IVS LMM NH YS PVOEHN I> WHOA WEN SIF IUMY SII Se oOo HH) 
att tet pet t tet tt +t} eet fet ee eer t ter ert t feet eee tet et See et te tise tes 
VSOZTVMOVOTVA MOMOMOMFEVYVADVAAAAVEPAVAVTTAVOMVAAZvBvFAatsvFtAFETAFAA 
Re “a A PAD 
iva) oOo fT ooo 
- - - Ch ood I 


IOI OI OI OS OI OI OSI OI OI OI OI OI OI OI OS OOS OI OI OI OI OI ONS 
DOOCOOCSOSBVSOOSOSSGOOOOOOOSOSOSOOOOSOSOSSOSOSOOSOSOSOSOSOOSOSOSOSSSOOSOOSOSOSOSOSoSoS 
CSOOOCOCOOCOOSDBOQGOOOSOGSOSSOSOSOSSSSOSSSSSSSSSOSSSOSSSCSSSSSOSSSOSOSOSOSOOOSOSoO 


—NOK MM -K— MT FT OT ODOT OV Ou Ou MOC OT ODOM RK WT OVOOTM ue OVUOMmun OOO4uCou 
O—- O8B— OO - CO SOSM uM WO OMeAOPOu OF OOOu OVC Om OSC OM u COVES OMu VO DBOOoooaoaoe 


MUANTTNG— We MUNOO TEM TOT TT OPR- PF WII) £0 WIP WO WI M0 WI U0 WI Oe We ee 
MOwOO--OFO FDU COtOrOWMoanae rn Se ee ee aoe 


- - wr wn ay La) 
ai o < < <= < 3 
co o w mm wo ow co re o Mm v t-<] o 
Oo o @ owvwrwm oe - S&S - & - - oe 

So oa o oa 

oS o o o 

o 

o 

Oo 

oO 
uu wv - “Co om wor @Meur uns uw wom TF wow Wa Ww 
o on Oo z= us ~o waite uno ow ~omnm oO ~oo ode <. 

oo 
“ @ wre o ~N we 
<< @ ww oe @ oo oOo 
Oo [=] =] 
o So So 
o [=] So 
= eae 
So So 
Oo Oo o 
~ oO o - 
Oo wn w ww 


2 
SAVR SAVRES == Save & Restore 16-s¢ -1984 743: AX-11 Bliss-32 V4.0-74 Page 15 
50en 580 SAVRES == Save & restore handler module 1 ~8ep-19 4 94:63:43 RUNOFF .SRCJSAVRES.BLI; . (4) 
50 DD O02cF PUSHL RO F | 
58 AG OOF D1 PUSHAB $STRSSTRINGZ : | 
5 pd D4 PUSHL : 24 
50 AG OOF D6 PUSHAB $SIRSSTRINGO : - 
31 11 002D BRB & : ; 4 
f ps DB 21$: CLRL  <=(SP) + 0473 3 
14 A540 9F 002DD PUSHAB SAVSTK+20CRO] : ; | 
9E po 3 PUSHL a(sP)¢ : a) 
3 0903 BF 3C O02 MOVZWL #2307, =(SP) : ; 
: 5 FB 0gEs CALLS #3, XS TSASCII ; ab 
3 0 DO 002E8 MOVL RO. R : =e 
E D4 0 FE CLRL sgh) : ; 
50 64 1¢ ¢ F MULL3 #28, X, : *} 
10 A540 SF O02F4 PUSHAB SAVSTK+16(ROJ : ; 3 
9E pp O2F8 USHL  a(SP)+ : - 4 
7E 0903 BF 3¢ 00 FA MOVZWL #2307, <(SP) : ; 3 
69 03 FS FF CALLS #3, XSTSASCII : | 
51 64 1¢ ¢5 00302 MULL3 #28, x, R1 : ae 
1¢ A541 SF 00306 PUSHAB SAVSTK+28(R1) : + 
6E 9E BO 0030A MOVW a(SP)+, $STRSSTRINGS : | 
02 AE OE 90 0030p MOVB = #14, $STRSSTRINGS+ : , 
03 AE 01 90 00311 MOVB = #1, SSTRSSTRINGS+3 : . 
18 A541 9F 00315 PUSHAB SAVSTK+24(R1 : ; 3 
04 AE 9E DO 00319 OVL a(SP)+, $STRSSTRINGS+4 : a 
5E DD 0031D PUSHL SP : - 3 
78 «AG OOF O031F PUSHAB $STRSSTRING4 : ; 3 
50 DD 03 2 PUSHL : 3 4 
70 AG OF 00324 PUSHAB $STRSSTRING2 : 7 
53 DD 00327 PUSHL 3 SS 
68 AG OF 003 9 PUSHAB $STRSSTRINGO : 4 
06 FB 0032C 22$: CALLS #6, XSTS$JOIN ; 9 
44 A2 50 DO 0032F MOVL RO. 68 (Re) : : 3 
2c 07 90 00333 MOVE #7, 44(R2) : 4 
57 DD 00337 PUSHL  R7 : - 
7E D4 00339 CLRL. = (SP) : 4 
52 DD 00338 PUSHL Re : ; 3 
000000006 EF 0 FB 00 3p CALLS #3, XPOSPUT ; ; 3 
0 64 if C5 00344 23$: MULL 28 > 0479 ; 3 
08 A540 SF 00348 PUSHAB SAVSTK+8(RO) : - ' 
53 9E DO 0034C¢ MOVL SP)+, : S| 
52 01 DO 0034F MOVL #1, R2 ; : 
00000082. «BF 53 D1 00 32 CMPL R3. #178 > 0482 : 
ne aS 7 : 
0c ase6 oF 6 38 PUSHAB SAVSTK+12(R0] + 0487 ; : 
66 i D1 00361 CMPL a(SP)+, GCA+188 : ; 3 
6 le 64 BNEG 26$ ; : : 
50 64 1¢ § 66 MULL3. #28, X, RO > 0495 3 
06 As 04 Moe DO OOseE PUSHAB SAYSTESOLRO] a 
04 asad oF $ PUSHAB SAVSTKS4ERO] > 0496 ; 
D4 0037 CLRL a(SP)+ : : 
D4 0037 CLRL > 0499 : 
00000000GEF 40 04 B440 D 7A 24%:  MOVL asayPTRL1} BARCI) : 3 
EE 5 00009044 ea. AOBLEQ # t 1, 248 : ; 
43 94 8F ’ ¢ MOV a6 0° $KPOSDES > 0502 : 
02 AE 2 1 MOVB #2, $xPOSDESC+ : : 


SAVR SAVRES == Save & Restore 1b-5¢ $ep-1984 AX-11 Bliss=-32 V4.0-74 Pp 1 
v04- 80 SAVRES == Save & restore handler module 1 300-1 3be 9}: 68; 03 RUNOFF .SRCJSAVRES.BLI; he (4) | 
03 AE 0 90 95 MOVB #2, S$XPOSDESC+3 ; : 
4 AE 04 AS D 9 MOVL  SAVPTR, SKPOSDESC+4 : : 
3 BD 9 PUSHL R7 : ; 
E C 003A CLRQ RSP) : ; 
7E 0 ge A NEGL #2, =(SP) : ; 
10 AE SF OO3A PUSHAB SxPOSDE SC : ; 
000000006 EF 0 FB A CALLS #5, XPOSF REE MEM : : 
: D AF DECL  SAVSTK + 0505 : 
00000083 ~—s BF D1 00381 25$ CMPL =oR3 #79 : 0508 ; 
64 if 6 B8 BNEG 296 : S| 
50 64 72 Be Bo eBA mts ase. x, R : 0514 Jey 
0c As46 § 6 e6 PUSHAB eo eres SeROI : 
66 9E D4 C4 CMPL a(SP)+, GCA+188 : 
OA 1 (7 BEQL 27$ ; 
E D4 003C9 268: CLRL -(SP) : 0517 
000000006 ef DD 00 CB PUSHL #RNFWFR : 
6 11 0030 BRB 308 ; 
50 64 ic ¢3 0303 278:  MULL3 #28, X, RO > 0522 
04 A540 SF 00307 PUSHAB SAVSTK+4(RO] : 
04 AG . e9& 20 00308 OVL a (SP)+, SAVPTR : 
04 AS46 9OF O03DF PUSHAB SAVSTK+4(RO) + 0523 
3 D4 00 E3 CLRL a (SP)+ : 
50 D4 O03E ea > 0526 
00000000GEF40 94 B440 09 OO3E7 28$: MOVL  @SAVPTRCI), BARC!) ; 
EE 50 00000129 i F OO3F1 AOBLEQ #297, I, 28$ : 
bE 0448 8F Bo O3F9 MOVW Hli96 $xPOSDESC > 0529 
02. AE 02 0 O05tE MOVB #2, S$XPOSDESC+ : 
03 AE 02 90 40 MOVB ff SKPOSDES C+ ; 
04 AE 04 A& DO 00406 MOVL —- SAVPTR, SKPOSDESC +4 : 
57 DD 00408 PUSHL 7 ; 
7E 7C 00400 CLROQ RSP ) ; 
7E 02 CE 0040F MNEGL #2, -(SP) : 
10 AE OF 00412 PUSHAB $XPOSDESC F 
000000006 _ EF 05 FB 0041 CALLS #5, XPOSFREE_MEM ; 
65 Dd? 0041C DECL  SAVSTK : 0532 
OF 52 £9 OO41E 29$ BLBC = R2,_-31$ : 0536 
7E D4 00421 CLRL 3s = (§P) : 0539 
000000006 BF DD 00423 PUSHL #RNFNCS : 
000000006 EF 02 FB 00429 308: CALLS #2, ERMA ; 
04 00430 31$: + 0547 


; Routine Size: 1073 bytes, Routine Base: S$CODE$ + 0000 
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SAYRES SAVRES == Save & Restore Jp~sen= 1386 94:63:13 AX-11 Bliss-32 eR ad be 
v04-000 SAVRES == Save & restore handler module 14-Sep-1984 13:08:0 RUNOFF .SRCJSAVRES.BLI; 
; 4 ¢ 248 1 ZSBITL ‘SAVRES -- jaye & restore handler module' 
; 4 i ee : GLOBAL ROUTINE savini : NOVALUE = 
i 283 Ba) | tes 
H 2 § 0886 : FUNCTIONAL DESCRIPTION: 
: 428 0554 1! This routine is called from RINIT and changes the storage locations of several variables 
; : 4 B22? ! that need to be SAVEd but were previously stored in other block data areas. 
; 431 0887 | FORMAL PARAMETERS: — none 
; it 8227 } IMPLICIT INPUTS: none 
; 435 0361 | | IMPLICIT OUTPUTS: none 
: 437 0868 1 | ROUTINE VALUE and 
H $38 peed COMPLETION CODES: none 
: 440 0566 1 | SIDE EFFECTS: none discovered yet 
: 441 0567 1! 
; rr 0568 1 !-- 
> 44 0569 1 
> 444 0570 BEGIN 
: tee 0893 BIND 
> 447 0878 e Ss = save : $save_block 
3 re bate 2 sa = saveall : $Saveal(_block; 
: 450 0576 ‘We now reassign the storage locations for the following variables so that 
3 $3) bee 'they wil all be stored in the save or saveall block memory. 
: re 0579 sca_t_justify = 5 save$g_sca_just ify]; 
: 454 0580 § sca_f_fill =s (Csave$g sca_fill); 
; 455 0581 sca_f_cc_ok = sa Lsaveal($g_Sca_cc_ok]; 
; 456 b28¢ § sca_f_crock =s [Csave$g_sca_crock]; 
; 457 058 sca_f_lm =s [save$g_sca_(m]; 
: 458 0584 sca_f_rm = s (Csave$g_sca_rm]; 
; 459 0585 sca_f_spacing =s sevens gca_spacing); 
; 460 0586 sca_f_period = sa [saveal($g_Sca_period); 
: 461 0587 scant "ker =s [save Hl sca_kerJ; 
; rr 0588 sca_f_bar_char = sa (saveal($g_Sca_bar char); 
; 46 0589 sca_f_autotitle = s (save$g_sca_aufotifle]; 
3 rec: Bene sca_f_flags = s ([save$g_sca_flags]; 
: 466 0398 gca_f_autopara = sa ([saveall$g_g9ca_autopara); 
: 467 59 gca_f_autosubt = sa ([saveall$g_gca_autosubt); 
: 468 0594 gca_f_autotabl = sa SEES Bp et nd be 3 
: 469 595 gca_f_autojust = sa [saveall$g_9ca_autojust); 
: 470 238 gca_f_xcase = sa [saveall$g_ gca_xcasel; 
s $67) 59 gca_f_case = sa soveal(59.9ce case : 
: 47e 598 gca-f-flag.cmd =s [save$g_gca_ Lag cad); 
: 47 599 gca_f_lwidth = s (Csave$g_gca_widthl; 
3 rt ond gca_f_keep = s (Csave$g_gca_keep); 
; ore 6 ; phan_f_llines = s savess phen Llines); 
: 47 60 phan_f-header = sa [savealT$g_phan_header); 
; 478 0604 phan_f_paging = sa (Csaveall$g_phan_pagingJ; 


2 
SAVR SAVRES == Save & Restore 16-58 -1984 01:43: AX-11 Bliss-32 V4.0-74 P 1 
you 000 SAVRES == Save & restore handler module 1 ~3007 138% i ERUNOFFeSRe SAVRES.BLI; eA (33 
: 479 605 
; 480 6 : hct_f_date = 5 psave$g_nct date); 
: «481 6 het_f_headers = 5 pavesg_nct headers]; 
3; 4 ; 6 8 hct_f_number_page= save$g_hct_number_pag]; 
> 48 060 hct_fihd case =s [save$g_fict_fid cased; 
> 484 0610 het_f-subtitle = s [save$g-hct~subt tle; 
3 ret pot) hct_f_nmpg_.np = s (Csave$g_hct_nmpg_npJ; 
3; 487 bet END; ! End of SAVINI 
OOFC 000 «ENTRY SAVINI, Save R2,R3,R4,R5,R6,R7 3; 0549 
57 800000006 EF 9E 29009 MOVAB PHAN+4, R7 : 
28 4444 EF 9€ 0000 MOVAB HCT+4, R ; 
5 8 44 G EF 9€ B39 MOVAB GCA+4, R ; 
a3 000000G EF aE 001 MOVAB SA+32, R4 : 
3 000000006 EF 9€ 0018 MOVAB SCA+100, R3 ; 
6 00000000G EF 9E 000 MOVAB S$+4, R : 
6 8 9E it C MOVAB S$+4, SCA+100 3; 0579 
04 * 04 A2 YE 0002F MOVAB S$+8, SCA+104 ; 0580 
08 A 64 9E 00034 MOVAB SA+82, SCA+108 ; 0581 
oC «AS 08 A2 YE 00038 MOVAB S$+12, SCA+112 3 bees 
10 ‘ 0C A2 9E 0003D MOVAB $+16, SCA+116 ; 058 
14 =A 10 Ad 9E 49d 4 MOVAB $+20, geAels? 3; 0584 
18 A3 14 <A2 YE 0004 MOVAB $+#24, SCA+124 ; 0585 
1¢ AB 08 Ad 9E 0004C MOVAB A446, SCA+128 : 0586 
0 A3 18 A2 9E 00051 MOVAB sree SCA+13 3; 0587 
4 A 04 AS 9E 00056 MOVAB A436, SCA+136 : 0588 
8 A3 yf A2 9€ 0005 MOVAB $+32, SCA+140 ; 0589 
C AS 2 A2 9E 0006 MOVAB $+36, SCA+144 ; 0590 
65 ES A& YE 0006 MOVAB SA+4, GCA+4 3 B28 
046 AS EB <A& YE 00069 MOVAB shee GCA+8 :; 059 
08 AS EC Ad 9E 0006 MOVAB SA+12, GCA+12 : 0594 
0c AS EO AG OE 007 MOVAB SA, GCA+16 : 0595 
50 3=AS F4 A& YE 0007 MOVAB SA+20, GCA+84 : 0596 
7C AS ee AS 9E 00070 MOVAB SA+16, er Arase 3; 0597 
0080 cS A 43 008 MOVAB $+#44, GCA+13 : 0598 
0088 5 4 A E 000 MOVAB S$+40, GCA+140 ; 0599 
ooc8 §=6C5 A2 9E QO08E MOVAB $+48, GCA+204 ; 0600 
67 4 A2 9€ 94 MOVAB S$+76, PHAN+4 3 beng 
18 A? FB OG 3 98 MOVAB SA+24, PHAN#28 : 960 
24 «OA? FC AG QE 90 MOVAB SA+28, PHAN+ 3 0604 
66 3 A2 9€ Ae MOVAB S$+56, HCT+4 3 Bene 
S Aé6 8 Ad 9E A MOVAB $+60, HCT+8 ; 060 
, A6 3 Ad 9€ A MOVAB $38 e dbl : 0608 
1 A6 3 Ad 9€ B MOVAB $+52, Meise : 0609 
14 6 44 Ae 9E 8 MOVAB S$+#72, HCT+24 ; 0610 
28 Ab % COA BE BBA MOVAB S+64, HCT+44 ; 0611 
BF RET ; 0613 


; Routine Size: 192 bytes, Routine Base: S$CODE$ + 0431 


; 488 0614 1 END ! End of module 


a 


F 2 
you~000 SAVRES oo oo etd nok handler module 12-808- 1382 94:68:03 RUNOFF SREISAVRES OL (04 ene 3B 
; 489 0615 0 ELUDOM 


Name Bytes Attributes 


OWNS 198 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
SPLITS 1354 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
$CODES 1265 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


PSECT SUMMARY 


Synch too se tary, Oo > aire ag ee ay diame Symbols -------- Pages Processing 

$ File Total Loaded Percent Mapped Time 

: _$255$DUA28: CSYSLIBJXPORT.L32;1 590 128 21 252 00:00.1 

; 7$255$DUA28: CRUNOFF .SRCJDSRLIB.L32;1 1248 103 8 86 00:00.3 

3 COMMAND QUALIFIERS Ne 
Size: 1265 code + 262 data bytes 


3; Run Time: 01:06.4 
; Elapsed Time: 01:57.8 
3 Lines/CPU Min: 556 

3 Lexemes/CPU-Min: 101574 

3 cenety Used: 417 pages 
; a 


; Compilation Complete 


; BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:SAVRES/OBJ=OBJ$:SAVRES MSRC$: SAVRES/UPDATE=(ENHS$: SAVRES) 
| 
| 
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